home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD012a.dsk / MYTHMENU.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  31 lines
  1. 100  TEXT : HOME : CLEAR 
  2. 110  REM  MYTHOLOGY MENU
  3. 120  REM  <CTRL-M><CTRL-M>(C)1982<CTRL-M>PAUL'S ELECTRIC COMPUTER<CTRL-J>
  4. 130  REM <CTRL-M><CTRL-M>==================<CTRL-M>PAUL RAYMER<CTRL-M>BOX 42831<CTRL-M>LAS VEGAS NV 89116<CTRL-M>==================<CTRL-J>
  5. 140  VTAB 3: HTAB 15: PRINT "MYTHOLOGY": PRINT 
  6. 150  PRINT "1) THE MUSES"
  7. 160  PRINT "2) PANDORA"
  8. 170  PRINT "3) ATLAS"
  9. 180  PRINT "4) MINOTAUR"
  10. 190  PRINT "5) ROYAL ROMANCE"
  11. 200  PRINT "6) EYES HAVE IT"
  12. 210  PRINT "7) ORION"
  13. 220  PRINT "8) MONSTERS"
  14. 230  PRINT "9) TWELVE LABORS"
  15. 240  PRINT "0) BACK TO SOFTDISK"
  16. 250  PRINT 
  17. 260  HTAB 5: PRINT "SELECT BY NUMBER ";: GET A$:A =  VAL(A$)
  18. 270  PRINT 
  19. 280  ON A GOTO 1000,2000,3000,4000,5000,6000,7000,8000,9000
  20. 290  PRINT  CHR$(4);"RUN KICK.IT.OFF"
  21. 1000  PRINT 
  22. 1010  PRINT  CHR$(4)"RUN THE MUSES"
  23. 2000  PRINT  CHR$(4)"RUN PANDORA"
  24. 3000  PRINT  CHR$(4)"RUN ATLAS"
  25. 4000  PRINT  CHR$(4)"RUN MINOTAUR"
  26. 5000  PRINT  CHR$(4)"RUN ROYAL ROMANCE"
  27. 6000  PRINT  CHR$(4)"RUN EYES HAVE IT"
  28. 7000  PRINT  CHR$(4)"RUN ORION"
  29. 8000  PRINT  CHR$(4)"RUN MONSTERS"
  30. 9000  PRINT  CHR$(4)"RUN TWELVE LABORS"
  31. 10000  END